home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Interfaces / PInterfaces / UInspector.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.7 KB  |  58 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n-]}
  2. {UInspector.p}
  3. {Copyright © 1987-1990 by Apple Computer, Inc.    All rights reserved.}
  4.  
  5. {
  6. This unit implements two things: a set of lists of all objects in each class. and
  7. the inspector window (with its associated views.) The global routines below
  8. together make up the public interface to the inspector. The classes used are
  9. private to the unit and are declared in UInspector.inc1.p. Refer to that source
  10. code for more information on the implementation of this unit.
  11. }
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := FALSE}
  15. {$ENDC}
  16.  
  17. {$IFC NOT UsingIncludes}
  18. UNIT UInspector;
  19.  
  20.     INTERFACE
  21.         {$ENDC}
  22.  
  23.         {$IFC UNDEFINED __UInspector__}
  24.         {$SETC __UInspector__ := FALSE}
  25.         {$ENDC}
  26.  
  27.         {$IFC NOT __UInspector__}
  28.         {$SETC __UInspector__ := TRUE}
  29.  
  30.         { • Required for this unit's interface. Auto-Include them }
  31.         {$SETC UInspectorIncludes := UsingIncludes}
  32.         {$SETC UsingIncludes := TRUE}
  33.         {$I+}
  34.         {$IFC UNDEFINED __UObject__} {$I UObject.p} {$ENDC}
  35.         {$SETC UsingIncludes := UInspectorIncludes}
  36.  
  37.         PROCEDURE InitUInspector;
  38.         { Called during MacApp initialization.    Initializes this unit.}
  39.  
  40.         PROCEDURE AddObjectToInspector(theObject: TObject);
  41.         { Called when a new object is created by New or cloning. Adds theObject to the list of
  42.         objects for its class. }
  43.  
  44.         PROCEDURE RemoveObjectFromInspector(theObject: TObject);
  45.        { Called when an object is freed. Removes theObject from the list of objects for its class. }
  46.  
  47.         PROCEDURE MakeInspector;
  48.         { Called during MacApp initialization to make the Inspector document. Must be called after
  49.         creating gApplication.}
  50.  
  51.         PROCEDURE MakeInspectorWindow;
  52.         { Called to make a new Inspector window.}
  53.         {$ENDC}
  54.  
  55.         {$IFC NOT UsingIncludes}
  56. END.
  57. {$ENDC}
  58.